80 TEXT : POKE 34,20: HOME : HGR : SCALE= 4: ROT= 0: HCOLOR= 3: DRAW 4 AT 150,100: SCALE= 1: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC **": HTAB 6: PRINT "MATH MONSTER BY DONALD NUTE": PRINT "0=INSTRUCTIONS 1=MULTIPLY 2=DIVIDE": HTAB 13: PRINT "YOUR CHOICE: ";
90 POKE -16368,0
100 FOR I = 1 TO 50: NEXT :A = PEEK( -16384) -176: IF A >2 OR A <0 THEN A = RND(1): POKE -16368,0: GOTO 100
110 POKE -16368,0
120 IF A = 0 THEN 520
121 PRINT : PRINT : PRINT "PRESS A KEY TO SELECT THE SPEED:": PRINT : PRINT "F=FAST M=MEDIUM S=SLOW V=VERY SLOW ";: GET SP$: PRINT
122 IF SP$ = "F" THEN SP = 30
123 IF SP$ = "M" THEN SP = 100
124 IF SP$ = "S" THEN SP = 200
125 IF SP$ = "V" THEN SP = 255
130 HGR :NR = 3: HCOLOR= 3: DRAW 3 AT 235,5: DRAW 3 AT 235,25: DRAW 3 AT 235,45
140 HOME : HCOLOR= 3:M = 20:LM = 20:R = 100:MS = 4:RS = 1: DRAW MS AT M,100: DRAW RS AT R,100: DRAW 7 AT 230,100:SP = (SP -10) *(SP >0)
145 HOME :E = 0
150 X = INT( RND(1) *8) +2
160 Y = INT( RND(1) *8) +2: IF X *Y <10 THEN 160
170 POKE -16368,0: IF A = 2 THEN HTAB 10: PRINT X *Y" DIVIDED BY "X" = ";: GOTO 190
180 HTAB 15: PRINT X" X "Y" = ";
190 I = 1
200 FOR I = 1 TO SP:Z = PEEK( -16384) -176: IF Z >0 AND Z <10 THEN POKE -16368,0:J = I:I = SP: NEXT : GOTO 280
220 NEXT
230 ML = M:M = M +2: IF M = R -6 THEN 380
240 HCOLOR= 0: DRAW MS AT M -2,100:MS = 4 +(MS = 4): HCOLOR= 3: DRAW MS AT M,100:Z = PEEK( -16384) -176: IF Z >0 AND Z <10 THEN POKE -16368,0: IF NOT (E) THEN LM = M:J = SP: GOTO 280
250 IF Z >0 THEN POKE -16368,0
260 IF M = LM +20 THEN LM = M: ON NOT (E) GOTO 190: GOTO 145
270 GOTO 230
280 PRINT Z;: POKE -16368,0: IF A = 2 THEN PRINT : ON (Z = Y) +1 GOTO 350,310
290 FOR J = J TO SP:W = PEEK( -16384) -176: IF W = -40 THEN PRINT CHR$(8)" " CHR$(8);:I = J:J = SP: NEXT : GOTO 200
291 IF W > = 0 AND WW <10 THEN POKE -16368,0:J = SP: NEXT : GOTO 300
292 NEXT :I = SP:J = 1
293 M = M +2: IF M = R -6 THEN 380
294 HCOLOR= 0: DRAW MS AT M -2,100:MS = 4 +(MS = 4): HCOLOR= 3: DRAW MS AT M,100:W = PEEK( -16384) -176: IF W = -40 THEN PRINT CHR$(8)" " CHR$(8);: GOTO 230
295 IF W > = 0 AND W <10 THEN POKE -16368,0:LM = M: GOTO 300
296 IF M = LM +20 THEN LM = M: GOTO 290
297 GOTO 293
300 PRINT W: IF X *Y < >10 *Z +W THEN 350
310 PRINT : HTAB 12: PRINT "THAT'S CORRECT.": FOR I = 1 TO 1000: NEXT : HOME
320 R = R +2: HCOLOR= 0: DRAW RS AT R -2,100:RS = 1 +RS *(RS <3): HCOLOR= 3: DRAW RS AT R,100: IF INT(R/20) = R/20 THEN 145
330 IF R = 230 THEN 430
340 GOTO 320
350 FOR I = 1 TO 50:B = PEEK( -16336): NEXT : HOME : IF A = 1 THEN HTAB 15: PRINT X" X "Y" = "X *Y
360 IF A = 2 THEN HTAB 10: PRINT X *Y" DIVIDED BY "X" = "Y
370 FOR I = 1 TO 2000: NEXT :E = 1: GOTO 230
380 HCOLOR= 0: DRAW RS AT R,100: HCOLOR= 3: DRAW 6 AT M,100: HOME : IF A = 1 THEN HTAB 15: PRINT X" X "Y" = "X *Y
390 IF A = 2 THEN HTAB 10: PRINT X *Y" DIVIDED BY "X" = "Y
400 GOSUB 60: FOR I = 1 TO (1000 +4 *SP): NEXT : HCOLOR= 0: DRAW MS AT M -2,100: DRAW 6 AT M,100:NR = NR -1: DRAW 3 AT 235,5 +NR *20: IF NR >0 THEN SP = SP +10: GOTO 140
410 HOME : HTAB 15: PRINT "GAME OVER": PRINT : HTAB 13: PRINT "PLAY AGAIN? ";: GET A$: PRINT : IF A$ = "Y" THEN HCOLOR= 0: DRAW MS AT M,100: DRAW 7 AT M,100: CLEAR : GOTO 80
420 TEXT : HOME : END
430 HCOLOR= 0: DRAW RS AT 230,100: DRAW 7 AT 230,100: HCOLOR= 3:RS = 8: DRAW RS AT R,100
440 IF R <M +15 THEN 460
450 OS = RS:RS = 8 +(RS = 8): HCOLOR= 0:R = R -2: DRAW OS AT R +2,100: HCOLOR= 3: DRAW RS AT R,100: GOTO 440
460 HCOLOR= 0: DRAW RS AT R,100: FOR I = 1 TO 3: HCOLOR= 3: DRAW 9 AT R,100: HCOLOR= 0: DRAW 9 AT R,100: HCOLOR= 3: DRAW 8 AT R,100: FOR J = 1 TO 25:B = PEEK( -16336): NEXT : HCOLOR= 0: DRAW 8 AT R,100: NEXT
470 DRAW MS AT M,100: HCOLOR= 3: DRAW 9 AT R,100: FOR J = 1 TO 1000: NEXT : HCOLOR= 0: DRAW 9 AT R,100: IF SC <9 OR PILES <9 THEN 500
480 HOME : PRINT CHR$(7)"THAT'S 100 MONSTERS! WE'VE RUN OUT!!!": PRINT : HTAB 13: PRINT "PLAY AGAIN? ";: GET A$: PRINT : IF A$ = "Y" THEN CLEAR : GOTO 80
490 TEXT : HOME : END
500 IF SC = 9 THEN SC = 0: HCOLOR= 0: FOR Y = 0 TO 60: HPLOT 0,Y TO 150,Y: NEXT :PILES = PILES +1: HCOLOR= 3: DRAW 10 AT 3 +30 *PILES -30,140: GOSUB 70: GOTO 140
520 TEXT : HOME : HTAB 6: PRINT "MATH MONSTER BY DONALD NUTE": PRINT
530 PRINT " MATH MONSTERS ARE FRUMPY LITTLE FELLOWS WHO LOVE TO EAT MATHEMATICIANS! THEY CAN BE SMASHED WITH A SPECIAL HAMMER, BUT THEY CAST PARALYSIS SPELLS WHICH CAN KEEP YOUR RUNNER FROM GETTING"
540 PRINT "THE HAMMER. THEIR SPELL IS CAST WHEN THEY SHOUT A MULTIPLICATION OR DIVISION PROBLEM. THE ONLY WAY TO BREAK THE SPELL IS BY ANSWERING THE PROBLEM."
550 PRINT : PRINT " YOU HAVE THREE MATHEMATICIANS TO TRY TO DESTROY 100 MATH MONSTERS. YOU CAN CHOOSE MULTIPLICATION OR DIVISION PROBLEMS. EACH TIME YOU SMASH A MONSTERHE WILL LIE DOWN TO BE COUNTED. EACH"
560 PRINT "TIME YOU GET 10 MONSTERS, A LITTLE TOMBSTONE WILL APPEAR. YOUR RUNNERS DISAPPEAR AS THEY ARE CAUGHT.": PRINT : PRINT "GOOD LUCK!": VTAB 24: HTAB 6: PRINT "PRESS ANY KEY TO CONTINUE. ";:: GET A$: PRINT : GOTO 80
570 PRINT "TIME YOU GET 10 MONSTERS, A LITTLE TOMBSTONE WILL APPEAR. YOUR RUNNERS DISAPPEAR AS THEY ARE CAUGHT.": PRINT : PRINT "GOOD LUCK!": VTAB 24: HTAB 6: PRINT "PRESS ANY KEY TO CONTINUE. ";:: GET A$: PRINT : GOTO 90
